home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / SNOWY.ARJ / RAWDUMP.PAS < prev    next >
Pascal/Delphi Source File  |  1994-12-25  |  409b  |  24 lines
  1. program make_a_raw_asm_dump;
  2.  
  3. var
  4.   f      : text;
  5.   c      : word;
  6.   inf    : file of byte;
  7.   b      : byte;
  8.  
  9. begin
  10.   if paramcount<1 then exit;
  11.   assign(inf,paramstr(1));
  12.   reset(inf);
  13.   assign(f,'endansi.raw');
  14.   rewrite(f);
  15.   writeln(f,'endansi label byte');
  16.   while not eof(inf) do begin
  17.     read(inf,b);
  18.     write(f,'db ');
  19.     writeln(f,b);
  20.   end;
  21.   close(f);
  22.   close(inf);
  23. end.
  24.